home *** CD-ROM | disk | FTP | other *** search
/ Your Choice 1 / your choice.zip / your choice / OS2 / SOLPACK / ENGLISH.CMD < prev    next >
OS/2 REXX Batch file  |  1994-03-13  |  3KB  |  125 lines
  1. /* ENGLISH.CMD: Installation of CARDS.EXE in english. */
  2. '@Echo Off'
  3.  
  4. /* load REXXUTIL */
  5.  
  6. Call RxFuncAdd 'SysLoadFuncs', 'REXXUTIL', 'SysLoadFuncs'
  7. Call SysLoadFuncs
  8.  
  9.  
  10. /* Initialisation */
  11.  
  12. Signal On Failure Name FAILURE
  13. Signal On Halt Name HALT
  14. Signal On Syntax Name SYNTAX
  15.  
  16. Call SysCls
  17. Say 'Installation of CARDS 1.01...'
  18. Say ''
  19.  
  20.  
  21. /* Check... */
  22.  
  23. Language = 'ENGLISH'
  24.  
  25. Result = SysFileTree( Language".EX_", 'Files', 'F' )
  26. If Files.0 = 0 Then
  27.   Do
  28.   Say 'ERROR: 'Language'.EX_ not found!'
  29.   Signal DONE
  30.   End
  31.  
  32. Result = SysFileTree( "PICTURES.DLL", 'Files', 'F' )
  33. If Files.0 = 0 Then
  34.   Do
  35.   Say 'ERROR: PICTURES.DLL not found!'
  36.   Signal DONE
  37.   End
  38.  
  39. Result = SysFileTree( "README.TXT", 'Files', 'F' )
  40. If Files.0 = 0 Then
  41.   Do
  42.   Say 'ERROR: README.TXT not found!'
  43.   Signal DONE
  44.   End
  45.  
  46. Result = SysFileTree( Language".HL_", 'Files', 'F' )
  47. If Files.0 = 0 Then
  48.   Do
  49.   Say 'ERROR: 'Language'.HL_ not found!'
  50.   Signal DONE
  51.   End
  52.  
  53. Result = SysFileTree( Language".IN_", 'Files', 'F' )
  54. If Files.0 = 0 Then
  55.   Do
  56.   Say 'ERROR: 'Language'.IN_ not found!'
  57.   Signal DONE
  58.   End
  59.  
  60. /* Zielverzeichnis erfragen. */
  61.  
  62. Say 'Please enter the full target path for CARDS'
  63. Say '  Default: C:\CARDS: '
  64. Pull Directory
  65. If Directory = "" Then Directory = 'C:\CARDS'
  66.  
  67.  
  68. /* create target-path. */
  69.  
  70. Result = SysFileTree( Directory, 'Dirs', 'D' )
  71. If Dirs.0 = 0 Then
  72.   Do
  73.   Result = SysMkDir( Directory )
  74.   if Result == 0 Then
  75.     Do
  76.     End
  77.   Else
  78.     Do
  79.     Say 'ERROR: Can''t create target path.'
  80.     Signal DONE
  81.     End
  82.   End
  83. Say '';
  84.  
  85. /* Create desktop object */
  86.  
  87. Folder = '<WP_DESKTOP>'
  88.  
  89. /* Install */
  90.  
  91. Say 'Copying CARDS to ' Directory '...'
  92. Copy Language".EX_" Directory"\CARDS.EXE" '1>NUL'
  93. Copy "PICTURES.DLL" Directory"\PICTURES.DLL" '1>NUL'
  94. Copy "README.TXT" Directory"\README.TXT" '1>NUL'
  95. Copy Language".HL_" Directory"\CARDS.HLP" '1>NUL'
  96. Copy Language".IN_" Directory"\CARDS.INF" '1>NUL'
  97.  
  98. Say 'Creating desktop object...'
  99. Type = 'WPProgram'
  100. Title = 'Cardgames'
  101. Parms = 'MINWIN=DESKTOP;PROGTYPE=PM;EXENAME='Directory'\CARDS.EXE;STARTUPDIR='Directory';OBJECTID=<CARDS>;NOPRINT=YES;'
  102. Result = SysCreateObject( Type, Title, Folder, Parms, 'ReplaceIfExists' )
  103.  
  104. If Result = 1 Then
  105.   Say 'Desktop object was created!  Ready.'
  106. Else             
  107.   Say 'ERROR: Can''t create desktop object!'
  108.  
  109. Signal DONE
  110.  
  111. FAILURE:
  112. Say 'Error while processing REXX.'
  113. Signal DONE
  114.  
  115. HALT:
  116. Say 'REXX-Halt.'
  117. Signal DONE
  118.  
  119. SYNTAX:
  120. Say 'REXX-Syntaxerror.'
  121. Signal DONE
  122.  
  123. DONE:
  124. Exit
  125.